home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAULTP3.ZIP / PWAPRGMS.A02 / PWA95 / PWAPCP01.ZIP / 1ARM_20 / ONEARM.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-09-03  |  24KB  |  853 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.     String   STRING008
  33.     String   STRING009
  34.     String   STRING010
  35.     String   STRING011
  36.     String   STRING012
  37.     String   STRING013
  38.     String   STRING014
  39.     String   STRING015
  40.     String   STRING016
  41.     String   STRING017
  42.     String   STRING018
  43.     String   STRING019
  44.     String   STRING020
  45.     String   STRING021
  46.     String   STRING022
  47.     String   STRING023
  48.     String   STRING024
  49.     String   TSTRING025(1)
  50.     String   STRING026
  51.     Int      INT001
  52.     Int      INT002
  53.     Int      INT003
  54.     Int      INT004
  55.     Int      INT005
  56.     Int      INT006
  57.     Int      TINT007(3)
  58.     Int      INT008
  59.     Int      INT009
  60.     Int      INT010
  61.     Int      INT011
  62.     Int      INT012
  63.     Int      INT013
  64.     Int      INT014
  65.     Int      INT015
  66.     Int      INT016
  67.     Int      INT017
  68.     Int      INT018
  69.     Int      INT019
  70.     Int      TINT020(1)
  71.     Int      INT021
  72.  
  73. ;------------------------------------------------------------------------------
  74.  
  75.     If (AnsiOn() == 0) Goto LABEL026
  76.     RdUNet PcbNode()
  77.     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Playing ONEARM!", ""
  78.     BOOLEAN003 = 1
  79.     BOOLEAN001 = 0
  80.     INT006 = 1
  81.     STRING026 = ReadLine(PCBDat(), 94)
  82.     INT011 = 100
  83.     INT009 = 20
  84.     INT008 = 5
  85.     STRING003 = ReadLine(PPEPath() + "ONEARM.CFG", 1)
  86.     INT014 = ReadLine(PPEPath() + "ONEARM.CFG", 2)
  87.     STRING011 = ReadLine(PPEPath() + "ONEARM.CFG", 3)
  88.     STRING002 = ReadLine(PPEPath() + "ONEARM.CFG", 4)
  89.     GetUser
  90.     STRING005 = U_Name()
  91.     STRING015 = Date()
  92.     STRING014 = Time()
  93.     STRING008 = Date()
  94.     If (Exist(STRING003 + "ONEARM.DAT")) Then
  95.         FOpen 2, STRING003 + "ONEARM.DAT", 2, 3
  96.         FGet 2, INT002
  97.         Redim TINT020, INT002 + 1
  98.         Redim TSTRING025, INT002 + 1
  99.     Endif
  100.     INT006 = INT002
  101.     For INT002 = 1 To INT006
  102.         FGet 2, STRING017
  103.         If (InStr(STRING017, STRING005)) Then
  104.             BOOLEAN003 = 0
  105.             Tokenize STRING017
  106.             GetToken INT011
  107.             GetToken STRING009
  108.         Endif
  109.     Next
  110.     FClose 2
  111.     INT021 = INT011
  112.     BOOLEAN004 = 0
  113.     BOOLEAN005 = 0
  114.     BOOLEAN002 = 0
  115.     STRING013 = ReadLine(PCBDat(), 94)
  116.     STRING012 = "MLPNet Central"
  117.     If (STRING012 == STRING013) BOOLEAN002 = 1
  118.     If (STRING005 == STRING002) Goto LABEL001
  119.     If (STRING005 == "JIM COLEMAN") Goto LABEL001
  120.     If (STRING005 == "TANGLED UP IN BLUE") Goto LABEL001
  121.     If (STRING008 == STRING009) Then
  122.         PrintLn "@CLS@"
  123.         Newlines 3
  124.         PrintLn "            @X0FSorry, but you may play ONEARM only ONCE per day . . . "
  125.         Newlines 4
  126.         Wait
  127.     Else
  128.         :LABEL001
  129.         If (BOOLEAN002 == 0) Then
  130.             Cls
  131.             Newlines 4
  132.             Newline
  133.             Print "   "
  134.             For INT004 = 1 To 62
  135.             Next
  136.         Endif
  137.         Log "PLAYED JIM COLEMAN'S ONE-ARM BANDIT!!!", 0
  138.         If (INT011 < 100) INT011 = 100
  139.         DispFile STRING003 + "TESTARM", 1
  140.         :LABEL002
  141.         If (BOOLEAN002 == 0) Then
  142.         Endif
  143.         If (BOOLEAN001 == 0) Then
  144.             INT001 = 1 + Random(59)
  145.             If (INT001 == 39) Goto LABEL021
  146.         Endif
  147.         If (STRING005 == STRING011) Then
  148.             AdjTime -5
  149.             INT011 = INT011 / 2
  150.         Endif
  151.         If (INT009 < 1) Goto LABEL026
  152.         If (INT011 < 1) Goto LABEL019
  153.         AnsiPos 19, 18
  154.         PrintLn "@X07ONEARM.PPE v2.0 @X09(c)1995, Jim Coleman III"
  155.         AnsiPos 40, 10
  156.         Print "@X31  "
  157.         AnsiPos 40, 10
  158.         Print INT008
  159.         AnsiPos 40, 11
  160.         Print "@X31    "
  161.         AnsiPos 40, 11
  162.         Print INT009
  163.         AnsiPos 40, 12
  164.         Print "@X31    "
  165.         AnsiPos 40, 12
  166.         Print INT011
  167.         AnsiPos 0, 19
  168.         PrintLn "@X0D    [@X0FC@X0D]@X0Ehange Bet@X0D, [@X0FR@X0D]@X0Eedraw@X0D, [@X0FH@X0D]@X0Eelp@X0D, [@X0FQ@X0D]@X0Euit@X0D, [@X0FP@X0D]@X0Eull Handle, [@X0FT@X0D]@X0Eilt Machine"
  169.         PrintLn "    @X0D[@X0FS@X0D]@X0EySop Bulletin, @X0D[@X0FB@X0D]@X0Euy Protection from the I.R.S.@X0D"
  170.         Print "@X0E    " + STRING005
  171.         InputStr "@X09, is playing @X1E " + STRING012 + " OneArm! @X0E COMMAND@X0B", STRING006, 11, 1, Mask_Ascii(), 64 + 8 + 2
  172.         If (STRING006 == "B") Gosub LABEL020
  173.         If (STRING006 == "C") Gosub LABEL005
  174.         If (STRING006 == "H") Gosub LABEL016
  175.         If (STRING006 == "P") Goto LABEL006
  176.         If (STRING006 == "R") Goto LABEL004
  177.         If (STRING006 == "S") Goto LABEL003
  178.         If (STRING006 == "T") Goto LABEL008
  179.         If (STRING006 == "Q") Goto LABEL026
  180.         If (STRING006 == "J") BOOLEAN005 = 0
  181.         Goto LABEL002
  182.         :LABEL003
  183.         Cls
  184.         DispFile STRING003 + "BULLETIN", 1
  185.         Wait
  186.         DispFile STRING003 + "TESTARM", 1
  187.         Goto LABEL002
  188.         :LABEL004
  189.         Cls
  190.         DispFile STRING003 + "TESTARM", 1
  191.         Goto LABEL002
  192.         :LABEL005
  193.         Cls
  194.         Newline
  195.         DispFile STRING003 + "HOWMUCH", 1
  196.         Newline
  197.         Print "    @X0DYou are currently betting@X0F "
  198.         Print INT008
  199.         PrintLn "@X0E dollars."
  200.         Newline
  201.         InputInt "    @X0EChange bet to which amount @X0B(1-25) @X0D[ENTER]=Same @X0E:  ", INT010, 11
  202.         If (INT010 == "") Then
  203.             INT010 = INT008
  204.             DispFile STRING003 + "TESTARM", 1
  205.             Goto LABEL002
  206.         ElseIf (INT010 > 25) Then
  207.             Newline
  208.             PrintLn "    @X0AYou have a problem reading? It says @X0B(1-25)@X09"
  209.             Newline
  210.             Wait
  211.             Goto LABEL005
  212.         Endif
  213.         INT008 = INT010
  214.         DispFile STRING003 + "TESTARM", 1
  215.         Return
  216.         :LABEL006
  217.         If (INT011 >= INT014) Goto LABEL022
  218.         Dec INT009
  219.         For INT003 = 1 To 3
  220.             TINT007(INT003) = 1 + Random(6)
  221.         Next
  222.         INT012 = 0
  223.         For INT003 = 1 To 3
  224.             Select Case (TINT007(INT003))
  225.                 Case 1
  226.                     STRING016 = "@X03 JOERK! @X0F"
  227.                 Case 2
  228.                     INT012 = INT012 - 15
  229.                     STRING016 = "@X4E! THUD !@X0F"
  230.                 Case 3
  231.                     INT012 = INT012 + 4
  232.                     STRING016 = "@X04DIAMONDS@X0F"
  233.                 Case 4
  234.                     INT012 = INT012 + 5
  235.                     STRING016 = "@X02 HEARTS @X0F"
  236.                 Case 5
  237.                     STRING016 = "@X07 SPADES @X0F"
  238.                 Case 6
  239.                     INT012 = INT012 + 7
  240.                     STRING016 = "@X0E$$$--$$$@X0F"
  241.                 Case 7
  242.                     INT012 = INT012 + 10
  243.                     STRING016 = "@X9FHAMMSTER@X0F"
  244.             End Select
  245.             If (INT012 < -30) Goto LABEL007
  246.             If (INT012 > 29) Goto LABEL018
  247.             If (INT003 == 1) Then
  248.                 AnsiPos 22, 6
  249.                 Print STRING016
  250.                 Continue
  251.             Endif
  252.             If (INT003 == 2) Then
  253.                 AnsiPos 35, 6
  254.                 Print STRING016
  255.                 Continue
  256.             Endif
  257.             If (INT003 == 3) Then
  258.                 AnsiPos 48, 6
  259.                 Print STRING016
  260.             Endif
  261.         Next
  262.         INT012 = INT012 / 3
  263.         INT011 = INT011 + INT008 * INT012
  264.         Goto LABEL002
  265.         :LABEL007
  266.         Log "Got THUDDED OUT! in JIM COLEMAN'S ONE-ARM!", 1
  267.         BOOLEAN004 = 1
  268.         INT011 = INT011 / 2
  269.         AdjTime -5
  270.         DispFile STRING003 + "THUDOUT", 1
  271.         Wait
  272.         Goto LABEL026
  273.         :LABEL008
  274.         If (BOOLEAN005 == 1) Then
  275.             Cls
  276.             PrintLn "@X0FAre you SUICIDAL?  They are watching you VERY CAREFULLY now!  PLEASE"
  277.             PrintLn "don't tilt the machines!"
  278.             Newlines 3
  279.             Wait
  280.             DispFile STRING003 + "TESTARM", 1
  281.             Goto LABEL002
  282.         Endif
  283.         BOOLEAN005 = 1
  284.         Cls
  285.         Newlines 3
  286.         PrintLn "@X0BYou sneak a quick look over your shoulder.  No one seems to be paying"
  287.         PrintLn "attention.  @X02Besides, it's not YOUR FAULT the DAMN machine won't fess up"
  288.         PrintLn "with your royal winnings.  You look again.  Everyone looks drunk and"
  289.         PrintLn "preoccupied."
  290.         Newline
  291.         PrintLn "@X0BWith sudden resolve, you grasp the sides of the machine, @X02yank it heavily to"
  292.         PrintLn "the side, let it crash back on its own . . . and then KICK it once for"
  293.         PrintLn "good measure.  You are feeling pretty good about yourself.  In fact, you"
  294.         PrintLn "haven't felt THIS good since your favorite BBS ditched Keith Anderson's KBBS"
  295.         PrintLn "software with great fanfare."
  296.         Newline
  297.         PrintLn "@X0BWhat a stud, @X02you mumble under your breath.  The machine stops rocking."
  298.         PrintLn "The wheels stop spinning."
  299.         Newline
  300.         PrintLn "@X0BSomeone taps you on the shoulder. You freeze, hesitating a moment."
  301.         Newline
  302.         Wait
  303.         Cls
  304.         Newlines 2
  305.         PrintLn "@X0EA sexy little brunette thing @X02in a slinky, satin evening dress saunters up,"
  306.         PrintLn "rubs her wet lip with a moist finger and looks you up and down."
  307.         Newline
  308.         PrintLn "@X0BI saw you tilt that machine, @X02she says.  Her voice is like that of a"
  309.         PrintLn "seductress, and her body beats anything Madonna has on a GOOD day."
  310.         PrintLn "@X0BYou know, @X02she says, @X0Byou and I are gonna have to talk about this.  You could"
  311.         PrintLn "get in big trouble if I report this to my fiancè, Mario, who owns this"
  312.         PrintLn "joint.  I think he's out of the slammer now, but I'm not sure.  Anyway,"
  313.         PrintLn "if he's still locked up for killing that guy who brought his own"
  314.         PrintLn "special dice, his brother, Anthony, will be happy to take care of it"
  315.         PrintLn "in his stead.  Especially since he and I are close . . . real close."
  316.         Newline
  317.         PrintLn "Know what I mean?  So, what are we gonna do about this?"
  318.         PrintLn "@X02She strokes her warm fuzzy pet hamster and waits for your answer."
  319.         Newline
  320.         InputStr "@X0D[@X0FI@X0D]@X0Egnore her@X0D, [@X0FT@X0D]@X0Eell a joke@X0D, @X0ETickle her pet @X0D[@X0FH@X0D]@X0Eamster", STRING006, 11, 1, Mask_Ascii(), 8
  321.         If (STRING006 == "H") Goto LABEL009
  322.         If (STRING006 == "I") Goto LABEL013
  323.         If (STRING006 == "T") Goto LABEL014
  324.         DispFile STRING003 + "TESTARM", 1
  325.         Goto LABEL002
  326.         :LABEL009
  327.         Cls
  328.         Newlines 2
  329.         PrintLn "@X0BWhat a warm, fuzzy hamster you have, @X02you say.  You hope your eyes"
  330.         PrintLn "don't give you away.  @X0BYou know, back where I come from, we spell it"
  331.         PrintLn "H-A-M-M-S-T-E-R.  I see you have it spelled this way on the slot machines,"
  332.         PrintLn "too.  Perhaps we have more in common than you think."
  333.         Newline
  334.         PrintLn "@X02She says nothing, but begins stroking her furry hammster absently."
  335.         Newline
  336.         PrintLn "@X02You're still a bit wary of her, but you want to rub that hammster probably"
  337.         PrintLn "more than she does.  You reach out confidently and start petting it fondly,"
  338.         PrintLn "growing more fonder by the minute.  @X0BYou've got the nicest hammster I've"
  339.         PrintLn "EVER seen, @X02you say, looking into her eyes.  Her gaze is penetrating.  Her"
  340.         PrintLn "lips part and you hear the faintest of sighs."
  341.         Gosub LABEL017
  342.         Cls
  343.         Newlines 2
  344.         PrintLn "@X0BYou know, @X02she says, @X0Bmost just want me for my warm, furry hammster."
  345.         PrintLn "You're not like the rest of them, are you?"
  346.         Newline
  347.         PrintLn "@X0FTickle, tickle, TICKLETICKLETICKLETICKLE! @X02you say, ignoring the question."
  348.         PrintLn "The hammster squirms pleasingly in your grasp."
  349.         Newline
  350.         PrintLn "@X0APolitely @X0D[@X0BE@X0D]@X0Axcuse yourself, @X0D[@X0BS@X0D]@X0Aay something profound,"
  351.         InputStr "@X0D[@X0BM@X0D]@X0Aake a move on her! ", STRING006, 11, 1, Mask_Ascii(), 64 + 8
  352.         If (BOOLEAN002 == 0) Goto LABEL015
  353.         If (STRING006 == "E") Goto LABEL010
  354.         If (STRING006 == "M") Goto LABEL011
  355.         If (STRING006 == "S") Goto LABEL012
  356.         DispFile STRING003 + "TESTARM", 1
  357.         Goto LABEL002
  358.         :LABEL010
  359.         INT003 = 1 + Random(5)
  360.         If (INT003 == 1) STRING001 = "I'm sorry,  I knew I shouldn't have eaten that. Excuse me."
  361.         If (INT003 == 2) STRING001 = "Someone was a hammster and someone smelled of elderberries . . . "
  362.         If (INT003 == 3) STRING001 = "I'm married, you know. If I hang out here any longer, I'm in trouble,"
  363.         If (INT003 == 4) STRING001 = "Yeah . . . right. I'll bet your husband is an I.R.S. agent, too,"
  364.         If (INT003 == 5) STRING001 = "Well, if you ever want to do some hammster, call me,"
  365.         If (INT003 == 6) STRING001 = "I'll bet that hammster would taste good with red wine,"
  366.         Cls
  367.         Newlines 3
  368.         PrintLn "@X0BThe temptation is great, @X02but you know you could really make a serious"
  369.         PrintLn "mistake.  There is the issue of Mario, you know.  If he saw you copping"
  370.         PrintLn "a feel of her hammster again, there could be some really big trouble. @X0E"
  371.         Newline
  372.         PrintLn STRING001
  373.         PrintLn "@X02you stammer, not daring look her in the eye, realizing you can smell her"
  374.         PrintLn "hammster from a distance.  You move along, walking the straight and narrow."
  375.         Gosub LABEL017
  376.         DispFile STRING003 + "TESTARM", 1
  377.         Goto LABEL002
  378.         :LABEL011
  379.         Goto LABEL015
  380.         Return
  381.         :LABEL012
  382.         INT003 = 1 + Random(5)
  383.         If (INT003 == 1) STRING001 = "My camel is delineating nuclear fission medical waste,"
  384.         If (INT003 == 2) STRING001 = "Fourteen farknarkles cornered the blender-matic market,"
  385.         If (INT003 == 3) STRING001 = "My navel sports nineteen varieties of fresh produce,"
  386.         If (INT003 == 4) STRING001 = "Nothing moves like Gibralter moves,"
  387.         If (INT003 == 5) STRING001 = "Buy now, pay later, tastes great, less filling,"
  388.         If (INT003 == 6) STRING001 = "Four license plates, please,"
  389.         If (INT003 == 7) STRING001 = "My great-uncle is now a cup of dust,"
  390.         If (INT003 == 8) STRING001 = "I like KBBS,"
  391.         Cls
  392.         Newlines 2
  393.         PrintLn "@X0BYou think of something profound to say.  @X02Something that will impress her,"
  394.         PrintLn "@X02something that will make her want you, something that will elevate you,"
  395.         PrintLn "@X02something that will let her know you a genius in your own right."
  396.         Newline
  397.         PrintLn "@X0BShe leans toward you expectantly.  @X02Her blouse is revealing and her"
  398.         PrintLn "cleavage generous.  You smile; she's not an 'outtie.'  Your face lights up"
  399.         PrintLn "as the important words come to you: @X0E"
  400.         Newline
  401.         Print STRING001
  402.         PrintLn "@X02 you say,"
  403.         INT003 = INT003 * 10
  404.         PrintLn "but then you realize how stupid that sounded.  You slink off in shame. Some"
  405.         Print "quarters fall out of your pocket and you lose @X0E"
  406.         Print INT003
  407.         PrintLn "@X02 dollars."
  408.         Gosub LABEL017
  409.         INT011 = INT011 - INT003
  410.         DispFile STRING003 + "TESTARM", 1
  411.         Goto LABEL002
  412.         DispFile STRING003 + "TESTARM", 1
  413.         Goto LABEL002
  414.         :LABEL013
  415.         Cls
  416.         Newlines 3
  417.         PrintLn "@X0BWhat? @X02she shrieks, @X0Bare you just going to ignore me???"
  418.         Newline
  419.         INT001 = Random(98) + 1
  420.         If (INT001 < 16) Then
  421.             PrintLn "Two big burly dudes rumble on over and stand between you and the lady."
  422.             PrintLn "@X0BYou decide to leave the casino before they THROW YOU OUT!"
  423.         Else
  424.             Print "@X0BThe machine spits out @X0E$"
  425.             Print INT001
  426.             PrintLn "@X0B in quarters!"
  427.             PrintLn "@X0EYou turn to grin foolishly at the intruding lady, but she"
  428.             PrintLn "(and her pet hammster) are gone."
  429.             INT011 = INT011 + INT001
  430.             Newlines 2
  431.             Wait
  432.             DispFile STRING003 + "TESTARM", 1
  433.             Goto LABEL002
  434.             :LABEL014
  435.             INT001 = Random(9) + 1
  436.             STRING007 = INT001
  437.             Cls
  438.             DispFile STRING003 + "JOKE" + STRING007, 1
  439.             Wait
  440.             Cls
  441.             Newlines 3
  442.             INT001 = INT001 * 10
  443.             PrintLn "@X0BShe considers the joke with a hint of a frown on her face.  This"
  444.             PrintLn "worries you, @X02and you start wondering how large Mario is."
  445.             Newline
  446.             PrintLn "@X0BSuddenly, she breaks out in hysterical laughter.  @X02You smile, knowing"
  447.             PrintLn "you will live to see another day.  @X0EJust don't tilt the machine again,"
  448.             PrintLn "she says, walking away, still chuckling."
  449.             Newline
  450.             Print "@X0EYou are rewarded @X0B"
  451.             Print INT001
  452.             PrintLn "@X0E points for that life-saving joke!"
  453.             INT011 = INT011 + INT001
  454.             Newlines 3
  455.             Wait
  456.             DispFile STRING003 + "TESTARM", 1
  457.             Goto LABEL002
  458.             :LABEL015
  459.             Cls
  460.             Newlines 14
  461.             Newlines 4
  462.             Wait
  463.             Cls
  464.             DispFile STRING003 + "TESTARM", 1
  465.             Goto LABEL002
  466.             :LABEL016
  467.             Cls
  468.             Newline
  469.             PrintLn "                    @X0EWelcome to The MLPNet Casino Door!"
  470.             Newline
  471.             PrintLn "        @X0FYour goal, simply put, is to accumulate wealth and avoid being"
  472.             PrintLn "@X8FTHUDDED OUT!  @X02Your fate (and your wealth) hang in the balance as"
  473.             PrintLn "the wheel spins!  Will you be lucky and get a @X0EHAMMSTER @X02or will you end up"
  474.             PrintLn "a mere @X0EJOERK@X02, or, worse yet, will you get @X0ETHUDDED?  @X0FOnce only a"
  475.             PrintLn "recreational past-time in Bosnia and third-world nations, you TOO can now"
  476.             PrintLn "be THUDDED while enjoying HAMMSTER on the ONE-ARM BANDIT!"
  477.             Newline
  478.             PrintLn "     @X0FTo change your bet amount from 1 to 25, type in C."
  479.             PrintLn "     @X0FHit S to read (S)ysop Bulletin, if defined."
  480.             PrintLn "     @X0FTO PLAY, hit P! Check out the (T)ilt Options!"
  481.             PrintLn "     @X0F(B)uy Protection from the Taxman! One-time (per game) 5% deduction."
  482.             PrintLn "     @X0FHINT:  @X02Bet low your first game or two to get started so you"
  483.             PrintLn "             don't THUD OUT!!!"
  484.             PrintLn "     @X0ERemember, friends don't let friends GET THUDDED!@X09"
  485.             Newline
  486.             Wait
  487.             Cls
  488.             Newlines 2
  489.             PrintLn "        @X0FRemember, WINNING ISN'T EVERYTHING . . . until you lose. <VBG>"
  490.             PrintLn "        @X02Here's the breakdown on scoring :@X0E"
  491.             PrintLn "                                                              "
  492.             PrintLn "                     @X4E! THUD !@X0F  =  You LOSE (Bet X 15) "
  493.             PrintLn "                     @X03 JOERK! @X0F  =  You ARE nothing     "
  494.             PrintLn "                     @X04DIAMONDS@X0F  =  You WIN  (Bet X 4)  "
  495.             PrintLn "                     @X02 HEARTS @X0F  =  You WIN  (Bet X 5)  "
  496.             PrintLn "                     @X07 SPADES @X0F  =  You WIN  (Bet X 1) "
  497.             PrintLn "                     @X0E$$$--$$$@X0F  =  You WIN  (Bet X 7) "
  498.             PrintLn "                     @X9FHAMMSTER@X0F  =  You WIN  (Bet X 10) "
  499.             PrintLn "                       @X09All three wheels are averaged.     "
  500.             Newline
  501.             PrintLn "      @X02Get @X0F3 BIG BALD THUDS @X02and you are THUDDED OUT!  Get @X0F3 HAMMSTERS"
  502.             PrintLn "      @X02and score  BIG!  Get @X0FJOERKED@X02 and remain  EVEN (Win or lose"
  503.             PrintLn "      nothing--but you are awarded a proficiency in  14 programming"
  504.             PrintLn "                      languages as an added bonus!)"
  505.             Newlines 2
  506.             Wait
  507.             DispFile STRING003 + "TESTARM", 1
  508.             Return
  509.             :LABEL017
  510.             AnsiPos 58, 21
  511.             STRING010 = "Y"
  512.             InputYN "@X4EContinue?  Y/n ", STRING010, 75
  513.             If (STRING010 == "N") Goto LABEL026
  514.             Return
  515.             :LABEL018
  516.             Log "HIT THE JACKPOT! in JIM COLEMAN'S ONE-ARM!", 1
  517.             DispFile STRING003 + "JACKPOT", 1
  518.             INT003 = INT011 / 2
  519.             INT011 = INT011 + INT003
  520.             Newline
  521.             Print "   @X0BYou are awarded @X0E"
  522.             Print INT003
  523.             PrintLn "@X0B dollars as quarters dribble out ALL OVER"
  524.             PrintLn "   the floor!  You're elated with your newfound wealth & break wind with glee!"
  525.             PrintLn "   @X0EGRAB them HAMMSTERS and RUN, cuz I think Gary Araki's on his way over!!!"
  526.             Gosub LABEL017
  527.             Return
  528.             :LABEL019
  529.             Cls
  530.             INT011 = 0
  531.             Newlines 3
  532.             PrintLn "  @X0DYou are out of money @X0E(chortle!) @X0FTry again tomorrow!"
  533.             Newlines 4
  534.             Wait
  535.             Goto LABEL026
  536.             :LABEL020
  537.             Cls
  538.             Newlines 2
  539.             INT003 = INT011 / 20
  540.             PrintLn "@X0BA man in a smart suit and tie walks up, and motions you to the side."
  541.             PrintLn "@X02You follow, sneaking a hand into your pocket to finger your trusty pocket-"
  542.             PrintLn "knife.  You don't know this man from Adam. @X0B"
  543.             Newline
  544.             Print STRING005
  545.             PrintLn "@X02 he says, the IRS people are hanging around here"
  546.             PrintLn "a LOT now.  I've seen some real good people go T-U because of them.  Here's"
  547.             PrintLn "my deal.  You pay me @X0BFIVE PERCENT @X02of what you have now, and I'll"
  548.             Print "protect you from the IRS people.  Come on, @X0B"
  549.             Print STRING005
  550.             PrintLn ",@X02"
  551.             Print "whatddya say? It's a worthy investment. Five percent of your @X0E"
  552.             PrintLn INT011
  553.             Print "@X02bucks is only @X0E"
  554.             Print INT003
  555.             PrintLn "@X02 bucks."
  556.             Newline
  557.             InputYN "@X0BSo, how about it?  You gonna take me up on this?  Y/n ", STRING010, 11
  558.             If (STRING010 == "Y") Then
  559.                 INT011 = INT011 - INT003
  560.                 BOOLEAN001 = 1
  561.                 Newline
  562.                 PrintLn "@X0BYou are a wise person. @X0EYou won't regret this, I promise that!"
  563.                 Gosub LABEL017
  564.                 DispFile STRING003 + "TESTARM", 1
  565.                 Goto LABEL002
  566.             Else
  567.                 Newline
  568.                 PrintLn "@X0BSuit yourself, you numnut.  I think I'll make a phone call now . . . "
  569.                 Gosub LABEL017
  570.                 DispFile STRING003 + "TESTARM", 1
  571.                 Goto LABEL002
  572.             Endif
  573.             Return
  574.             :LABEL021
  575.             Cls
  576.             Newlines 2
  577.             PrintLn "@X0BSUDDENLY, there is great commotion and pandemonium.  @X02At first, you think"
  578.             PrintLn "Mario came back unexpected or the hammsters got loose.  People scramble all"
  579.             PrintLn "around you, running for the nearest exits.  Unfortunately, they don't get"
  580.             PrintLn "very far.  @X0BThree men with cigars and satin shirts stride cooly in, like"
  581.             PrintLn "they own the damn place, or something.  @X02For all you know, they do."
  582.             Newline
  583.             PrintLn "@X0EJust my luck, @X02you curse as they walk directly up to you.  Sweat breaks"
  584.             PrintLn "out on your brow.  They are mercifully quick."
  585.             Newline
  586.             INT003 = INT011 / 5
  587.             Print "@X0BOur records show you owe taxes on @X0E"
  588.             Print INT011
  589.             PrintLn "@X0B dollars.  We are here"
  590.             Print "to collect our 20 percent, which is @X0E"
  591.             Print INT003
  592.             PrintLn "@X0B dollars, in this case."
  593.             Newline
  594.             PrintLn "@X0BThey take your money and walk out of the joint, like they own the place,"
  595.             PrintLn "or something.  @X02Everyone resumes gaming and you stop sweating."
  596.             INT011 = INT011 - INT003
  597.             Gosub LABEL017
  598.             DispFile STRING003 + "TESTARM", 1
  599.             Goto LABEL002
  600.             :LABEL022
  601.             FOpen 1, STRING003 + "WINNER.DAT", 2, 3
  602.             FPut 1, "                                                   "
  603.             Frewind 1
  604.             FPutLn 1, STRING005
  605.             FClose 1
  606.             INT011 = 100
  607.             STRING004 = STRING005
  608.             DispFile STRING003 + "OAWINNER", 1
  609.             Goto LABEL024
  610.             :LABEL023
  611.             BOOLEAN006 = 0
  612.             If (INT011 > INT021) Then
  613.                 INT015 = INT011 - INT021
  614.             Else
  615.                 INT015 = INT021 - INT011
  616.                 BOOLEAN006 = 1
  617.             Endif
  618.             INT016 = INT015 / 80
  619.             If (BOOLEAN006 == 0) Then
  620.                 AdjTime INT016
  621.             Else
  622.                 AdjTime -INT016
  623.             Endif
  624.             PrintLn "@CLS@@X07"
  625.             If (BOOLEAN006 == 0) Then
  626.                 PrintLn "@X0D        You won @X0E", INT015, " @X0Ddollars.  @X0FThat means you won @X0E", INT016, " @X0Fminutes!"
  627.             Else
  628.                 PrintLn "@X0D        You lost @X0E", INT015, " @X0Ddollars.  @X0FThat means you lost @X0E", INT016, " @X0Fminutes!"
  629.             Endif
  630.             Newlines 3
  631.             PrintLn "@MORE@"
  632.             Return
  633.             :LABEL024
  634.             If (INT011 < 1) INT011 = 0
  635.             If (BOOLEAN003 == 1) Then
  636.                 FOpen 1, STRING003 + "ONEARM.DAT", 2, 3
  637.                 FGet 1, INT006
  638.                 Inc INT006
  639.                 Frewind 1
  640.                 FPutLn 1, INT006
  641.                 FClose 1
  642.             Endif
  643.             FOpen 1, STRING003 + "ONEARM.DAT", 2, 3
  644.             FGet 1, INT006
  645.             For INT002 = 1 To INT006
  646.                 FGet 1, STRING017
  647.                 If (InStr(STRING017, STRING005)) Then
  648.                     INT005 = INT002
  649.                     FClose 1
  650.                     FOpen 1, STRING003 + "ONEARM.DAT", 2, 3
  651.                     FGet 1, INT006
  652.                     For INT002 = 1 To INT005 - 1
  653.                         FGet 1, STRING017
  654.                     Next
  655.                     FPutPad 1, INT011, -10
  656.                     FPutPad 1, STRING015, 15
  657.                     FPutPad 1, STRING005, 27
  658.                     FClose 1
  659.                 Endif
  660.             Next
  661.             FClose 1
  662.             If (BOOLEAN003 == 1) Then
  663.                 FAppend 1, STRING003 + "ONEARM.DAT", 2, 3
  664.                 FPutPad 1, INT011, -10
  665.                 FPutPad 1, STRING015, 15
  666.                 FPutPad 1, STRING005, 27
  667.                 FPutLn 1
  668.                 FClose 1
  669.             Endif
  670.             :LABEL025
  671.             If (INT011 >= INT014) Goto LABEL022
  672.             FOpen 4, STRING003 + "WINNER.DAT", 2, 3
  673.             FGet 4, STRING004
  674.             FClose 4
  675.             FOpen 1, STRING003 + "ONEARM.DAT", 2, 3
  676.             FGet 1, INT006
  677.             INT013 = INT006
  678.             For INT002 = 1 To INT006
  679.                 FGet 1, STRING018
  680.                 Tokenize STRING018
  681.                 GetToken INT018
  682.                 TINT020(INT002) = ToInt(INT018)
  683.                 TSTRING025(INT002) = STRING018
  684.             Next
  685.             FClose 1
  686.             For INT002 = 1 To INT006
  687.                 For INT017 = 1 To INT002
  688.                     If (TINT020(INT002) > TINT020(INT017)) Then
  689.                         INT019 = TINT020(INT002)
  690.                         TINT020(INT002) = TINT020(INT017)
  691.                         TINT020(INT017) = INT019
  692.                         STRING019 = TSTRING025(INT002)
  693.                         TSTRING025(INT002) = TSTRING025(INT017)
  694.                         TSTRING025(INT017) = STRING019
  695.                     Endif
  696.                 Next
  697.             Next
  698.             PrintLn "@CLS@"
  699.             AnsiPos 1, 4
  700.             PrintLn "@X20┌───────────────────────────────────────────────────────────────────────────@X2F┐@X07"
  701.             PrintLn "@X20│                    @X2ETop Scorers in Jim Coleman's @XAEONEARM!                   @X2F│@X07"
  702.             PrintLn "@X20│                    @X21Last Winner:                                           @X2F│@X07"
  703.             PrintLn "@X20└@X2F───────────────────────────────────────────────────────────────────────────┘@X07"
  704.             Print "@X0F                   "
  705.             Print INT014
  706.             PrintLn "@X02 Points wins this round of @X0FONEARM!"
  707.             AnsiPos 40, 6
  708.             Print "@X2F" + STRING004
  709.             AnsiPos 0, 8
  710.             Newlines 2
  711.             For INT002 = 1 To INT013
  712.                 Tokenize TSTRING025(INT002)
  713.                 GetToken STRING020
  714.                 GetToken STRING021
  715.                 GetToken STRING022
  716.                 GetToken STRING023
  717.                 STRING024 = STRING022 + " " + STRING023
  718.                 FCreate 8, STRING003 + "SCORES.ASC", 2, 3
  719.                 FPutPad 8, "@X0E" + STRING020, 22
  720.                 FPutPad 8, "@X0F" + STRING024, 30
  721.                 FPutLn 8, "   @X02" + STRING021
  722.             Next
  723.             FClose 8
  724.             DispFile STRING003 + "SCORES.ASC", 0
  725.             Newlines 2
  726.             Wait
  727.             Goto LABEL027
  728.         Endif
  729.     Endif
  730.     :LABEL026
  731.     If (INT011 >= 5000) Goto LABEL022
  732.     Cls
  733.     Gosub LABEL023
  734.     Goto LABEL024
  735.     Goto LABEL025
  736.     :LABEL027
  737.     PrintLn "@CLS@@X1FThis PPE is Registered to ", STRING026, "@POS:80@"
  738.     Newline
  739.     Print "@X07               @X0EMaybe next time you'll beat @X0B"
  740.     PrintLn STRING004
  741.     Newline
  742.     PrintLn "             @X0ENow leaving The MLPNet ONE-ARM door game . . .  "
  743.     PrintLn "                @X0DPlease close the door on your way out . . ."
  744.     PrintLn "   "
  745.     PrintLn "                              @X04<CLICK>"
  746.     PrintLn "                             @X0DThank You!"
  747.     PrintLn "   "
  748.     Wait
  749.  
  750. ;------------------------------------------------------------------------------
  751. ;
  752. ; Usage report (before postprocessing)
  753. ;
  754. ; ■ Statements used :
  755. ;
  756. ;    22      Cls
  757. ;    15      Wait
  758. ;    115     Goto 
  759. ;    121     Let 
  760. ;    36      Print 
  761. ;    148     PrintLn 
  762. ;    85      If 
  763. ;    25      DispFile 
  764. ;    1       FCreate 
  765. ;    7       FOpen 
  766. ;    1       FAppend 
  767. ;    10      FClose 
  768. ;    10      FGet 
  769. ;    1       FPut 
  770. ;    4       FPutLn 
  771. ;    8       FPutPad 
  772. ;    1       GetUser
  773. ;    4       AdjTime 
  774. ;    3       Log 
  775. ;    3       InputStr 
  776. ;    2       InputYN 
  777. ;    1       InputInt 
  778. ;    11      Gosub 
  779. ;    7       Return
  780. ;    1       Inc 
  781. ;    1       Dec 
  782. ;    38      Newline
  783. ;    25      Newlines 
  784. ;    3       Tokenize 
  785. ;    7       GetToken 
  786. ;    1       RdUNet 
  787. ;    1       WrUNet 
  788. ;    15      AnsiPos 
  789. ;    2       Frewind 
  790. ;    2       Redim 
  791. ;
  792. ;
  793. ; ■ Functions used :
  794. ;
  795. ;    6       -
  796. ;    3       *
  797. ;    7       /
  798. ;    78      +
  799. ;    8       -
  800. ;    59      ==
  801. ;    16      <
  802. ;    10      <=
  803. ;    4       >
  804. ;    23      >=
  805. ;    39      !
  806. ;    20      &&
  807. ;    10      ||
  808. ;    2       InStr()
  809. ;    6       Random()
  810. ;    2       Date()
  811. ;    1       Time()
  812. ;    1       U_Name()
  813. ;    3       Mask_Ascii()
  814. ;    2       PCBDat()
  815. ;    4       PPEPath()
  816. ;    2       PcbNode()
  817. ;    6       ReadLine()
  818. ;    1       UN_Stat()
  819. ;    1       UN_Name()
  820. ;    1       UN_City()
  821. ;    1       Exist()
  822. ;    1       AnsiOn()
  823. ;    1       ToInt()
  824. ;
  825. ;------------------------------------------------------------------------------
  826. ;
  827. ; Analysis flags : Ad
  828. ;
  829. ; A - Adjust online time remaining ■ 5
  830. ;     Program modify the amount of online time remaining, this may
  831. ;     be a way to bypass time limits
  832. ;     ■ Search for : ADJTIME
  833. ;
  834. ; d - Access PCBOARD.DAT ■ 2
  835. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  836. ;     for many PPE so they can find various informations on the system
  837. ;     (system paths, max number of lines in messages, ...) but it may also
  838. ;     be a way to gather vital informations.
  839. ;     ■ Search for : PCBDAT()
  840. ;
  841. ;------------------------------------------------------------------------------
  842. ;
  843. ; Postprocessing report
  844. ;
  845. ;    10      For/Next
  846. ;    0       While/EndWhile
  847. ;    22      If/Then or If/Then/Else
  848. ;    1       Select Case
  849. ;
  850. ;------------------------------------------------------------------------------
  851. ;                 AEGiS Corp - Break the routines, code against the machines!
  852. ;------------------------------------------------------------------------------
  853.